home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / castlbls.sit / Cassette Labels 1.0 / background_2735.txt < prev    next >
Text File  |  1989-12-11  |  9KB  |  422 lines
  1. -- background: 2735 from stack: in.0
  2. -- bmap block id: 3325
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: label
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on idle -- make sure that everything that should be visible is
  12.   if the visible of field "printing screen" is true then
  13.     hide field "printing screen"
  14.   end if
  15.  
  16.   if the visible of bg button "aboutΓǪ" is false then
  17.     show bg button "aboutΓǪ"
  18.   end if
  19.  
  20.   pass idle
  21. end idle
  22.  
  23. on find modifier,whatToFind
  24.   if modifier is "normal" then -- substitute 'find whole' for find
  25.     find whole whatToFind
  26.   else -- let all other kinds of 'find' work normally
  27.     pass find
  28.   end if
  29. end find
  30.  
  31. on newCard
  32.   -- make a new card based on the first card of the stack
  33.  
  34.   hide the message
  35.   put cursor into oldCursor
  36.  
  37.   set cursor to watch
  38.   lock screen
  39.   put CopyScrap () into scrapHandle -- save the clipboard
  40.  
  41.   -- copy first card of the stack
  42.   push card
  43.   go to card 1
  44.   domenu copy card
  45.   pop card
  46.  
  47.   doMenu delete card -- delete card created by 'New Card'
  48.   go previous
  49.  
  50.   -- initialize copy of first card
  51.   domenu paste card
  52.   set the cantDelete of this card to false
  53.   repeat with i = 1 to the number of card fields
  54.     put empty into card field i
  55.   end repeat
  56.   repeat with i = 1 to the number of background fields
  57.     put empty into background field i
  58.   end repeat
  59.  
  60.   put the short date into field "date a"
  61.   put the short date into field "date b"
  62.  
  63.   put "Dolby B" into field "NR A"
  64.   put "Dolby B" into field "NR B"
  65.  
  66.   RestoreScrap scrapHandle -- restore the clipboard
  67.   DisposeScrapCopy scrapHandle
  68.   unlock screen
  69. end newCard
  70.  
  71. on arrowKey direction -- show only cards of this background
  72.   if direction is "left" then
  73.     if the optionKey is down then go prev
  74.     else go prev card of this bkgnd
  75.   else if direction is "right" then
  76.     if the optionKey is down then go next
  77.     else go next card of this bkgnd
  78.   else
  79.     -- use default action for other arrow keys
  80.     pass arrowKey
  81.   end if -- show only cards of this background
  82. end arrowKey
  83.  
  84.  
  85.  
  86.  
  87. -- part 13 (button)
  88. -- low flags: 00
  89. -- high flags: 0000
  90. -- rect: left=421 top=260 right=285 bottom=453
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 27009 / 27009
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Next
  99. ----- HyperTalk script -----
  100. on mouseDown
  101.   repeat
  102.     visual effect wipe right
  103.     go to next card of this bg
  104.     if the mouse is up then exit repeat
  105.   end repeat
  106. end mouseDown
  107.  
  108.  
  109.  
  110. -- part 14 (button)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=392 top=260 right=285 bottom=422
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 9301 / 9301
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Prev
  122. ----- HyperTalk script -----
  123. on mouseDown
  124.   repeat
  125.     visual effect wipe left
  126.     go to previous card of this bg
  127.     if the mouse is up then exit repeat
  128.   end repeat
  129. end mouseDown
  130.  
  131.  
  132.  
  133. -- part 19 (button)
  134. -- low flags: 00
  135. -- high flags: 2004
  136. -- rect: left=326 top=26 right=76 bottom=382
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 1020 / 1020
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Help
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   visual effect dissolve
  148.   push card
  149.   go to card "help"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 20 (button)
  155. -- low flags: 00
  156. -- high flags: 2004
  157. -- rect: left=326 top=128 right=178 bottom=382
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 32670 / 32670
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: 
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   show all cards
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 21 (button)
  174. -- low flags: 00
  175. -- high flags: 2004
  176. -- rect: left=326 top=77 right=127 bottom=382
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 1011 / 1011
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: Home
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   visual effect barn door close
  188.   go Home
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 22 (button)
  194. -- low flags: 00
  195. -- high flags: 2000
  196. -- rect: left=484 top=315 right=342 bottom=512
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 2162 / 2162
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Return
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   visual effect iris close
  208.   pop card
  209. end mouseUp
  210.  
  211.  
  212.  
  213. -- part 36 (field)
  214. -- low flags: 02
  215. -- high flags: 0000
  216. -- rect: left=68 top=49 right=62 bottom=148
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 2
  221. -- text size: 9
  222. -- style flags: 0
  223. -- line height: 9
  224. -- part name: Date A
  225.  
  226.  
  227. -- part 37 (field)
  228. -- low flags: 02
  229. -- high flags: 0000
  230. -- rect: left=68 top=60 right=72 bottom=148
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 3
  235. -- text size: 9
  236. -- style flags: 0
  237. -- line height: 9
  238. -- part name: NR A
  239.  
  240.  
  241. -- part 38 (field)
  242. -- low flags: 02
  243. -- high flags: 0000
  244. -- rect: left=195 top=49 right=61 bottom=276
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 2
  249. -- text size: 9
  250. -- style flags: 0
  251. -- line height: 9
  252. -- part name: Date B
  253.  
  254.  
  255. -- part 39 (field)
  256. -- low flags: 02
  257. -- high flags: 0000
  258. -- rect: left=195 top=60 right=72 bottom=276
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 3
  263. -- text size: 9
  264. -- style flags: 0
  265. -- line height: 9
  266. -- part name: NR B
  267.  
  268.  
  269. -- part 43 (field)
  270. -- low flags: 02
  271. -- high flags: 0004
  272. -- rect: left=385 top=38 right=125 bottom=507
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 0
  276. -- font id: 3
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: Comments
  281.  
  282.  
  283. -- part 48 (button)
  284. -- low flags: 00
  285. -- high flags: 8004
  286. -- rect: left=326 top=181 right=231 bottom=420
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 31200 / 31200
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Change Text Style
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   -- change the text style of the current field
  298.   if the selectedLine is empty
  299.   then -- no field selected
  300.   answer "Please click in a text field first."
  301. else
  302.   doMenu "Text Style..."
  303. end if
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 53 (button)
  309. -- low flags: 00
  310. -- high flags: 8004
  311. -- rect: left=424 top=181 right=231 bottom=506
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 17346 / 17346
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Music Library
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   put the selection into whatToFind
  323.  
  324.   -- simulate auto-hilite, since the real thing loses the selection
  325.   set the hilite of me to true
  326.   set the hilite of me to false
  327.  
  328.   visual effect zoom open
  329.   go to stack ":new stacks:music library"
  330.  
  331.   if whatToFind is not empty
  332.   then find whole whatToFind
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 51 (button)
  338. -- low flags: 00
  339. -- high flags: A004
  340. -- rect: left=386 top=128 right=178 bottom=442
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 4898 / 4898
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: New Label
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   doMenu "New Card"
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 52 (button)
  357. -- low flags: 00
  358. -- high flags: A004
  359. -- rect: left=446 top=128 right=178 bottom=506
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 1007 / 1007
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: Print Label
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   lock screen
  371.   show field "printing screen"
  372.   hide bg button "aboutΓǪ"
  373.  
  374.   open printing with dialog
  375.   print this card
  376.   close printing
  377.  
  378.   hide field "printing screen"
  379.   show bg button "aboutΓǪ"
  380.   unlock screen
  381. end mouseUp
  382.  
  383.  
  384.  
  385. -- part 49 (field)
  386. -- low flags: 81
  387. -- high flags: 0001
  388. -- rect: left=308 top=20 right=342 bottom=512
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 0
  392. -- font id: 9767
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: Printing Screen
  397. ----- HyperTalk script -----
  398. -- This field blocks the things that do no need to be printed when
  399. -- printing cassette lables.
  400.  
  401.  
  402. -- part 59 (button)
  403. -- low flags: 00
  404. -- high flags: 2001
  405. -- rect: left=0 top=20 right=44 bottom=29
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 19678 / 19678
  408. -- text alignment: 1
  409. -- font id: 0
  410. -- text size: 12
  411. -- style flags: 0
  412. -- line height: 16
  413. -- part name: About╔
  414. ----- HyperTalk script -----
  415. on mouseUp
  416.   hide the message box
  417.   visual effect dissolve
  418.   push card
  419.   go to card "aboutΓǪ"
  420. end mouseUp
  421.  
  422.